home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / gallery.dir / 00038_Script_Right Button Script < prev    next >
Text File  |  1995-06-12  |  3KB  |  76 lines
  1. global gPictureSprite, gCurrentSection, gCurrentPicture, gNumOPics, gProductSelect
  2. global gMacIDSprite, gWindowsIdSprite, gDemoButtonSprite, gLaunchQTButton, gFirstGoRound
  3.  
  4. on mousedown
  5.   set the puppet of sprite the clickon to true
  6.   --  if NOT gFirstGoRound then
  7.   --    unloadcast cast (string(gCurrentSection) & "QT" & string(gCurrentPicture))
  8.   --  end if
  9.   repeat while the stilldown
  10.     if rollover(the clickon) then
  11.       set the castnum of sprite (the clickon) = the number of cast "GDemoRight lit"
  12.       updateStage
  13.     else
  14.       set the castnum of sprite (the clickon) = the number of cast "GDemoRight"
  15.       updateStage
  16.     end if
  17.   end repeat
  18. end
  19.  
  20. on mouseUp
  21.   if rollover(the clickon) then
  22.     set the castnum of sprite (the clickon) = the number of cast  "GDemoRight"
  23.     set the puppet of sprite the clickon to false
  24.     set gCurrentPicture = gCurrentPicture + 1
  25.     if gCurrentPicture > gNumOPics then set gCurrentPicture = 1
  26.     set the castNum of sprite gPictureSprite = the number of cast (string(gCurrentSection) & string(gCurrentPicture))
  27.     set tempList = getaProp(gGalleryList, gCurrentSection)
  28.     if gCurrentPicture > 1 then 
  29.       set the castNum of sprite gLaunchQTButton = the number of cast "PlayQT"
  30.       set gProductSelect = getAt(tempList, (gCurrentPicture - 1))
  31.       put getProp(gProductList, gProductSelect) into sectionFlags
  32.       
  33.       if getAt(sectionFlags,1) then 
  34.         set the castNum of sprite gMacIDSprite = the number of cast "macID lit"
  35.       else
  36.         set the castNum of sprite gMacIDSprite = the number of cast "macID"
  37.       end if
  38.       
  39.       if getAt(sectionFlags,2) then 
  40.         set the castNum of sprite gWindowsIdSprite = the number of cast "windowsID lit"
  41.       else
  42.         set the castNum of sprite gWindowsIdSprite = the number of cast "windowsID"
  43.       end if
  44.       
  45.       if the machineType <> 256 then
  46.         if getAt(sectionFlags,3) then
  47.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo"
  48.         else
  49.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo lit"
  50.         end if
  51.         go to the frame - 1
  52.         exit
  53.       else    
  54.         if getAt(sectionFlags,4) then
  55.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo"
  56.         else
  57.           set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo lit"
  58.         end if
  59.         go to the frame - 1
  60.         exit
  61.       end if
  62.       
  63.     else
  64.       set gProductSelect = #null
  65.       set the castNum of sprite gLaunchQTButton = the number of cast "NullPlay"
  66.       set the castNum of sprite gMacIDSprite = the number of cast "macID"
  67.       set the castNum of sprite gWindowsIdSprite = the number of cast "windowsID"
  68.       set the castNum of sprite gDemoButtonSprite = the number of cast "GoDemo lit"
  69.     end if
  70.   else
  71.     set the castnum of sprite (the clickon) = the number of cast  "GDemoRight"
  72.     set the puppet of sprite the clickon to false
  73.   end if
  74. end
  75.  
  76.